home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / earcd / dev / amos / moreusel.lha / Zini2.AMOS / Zini2.amosSourceCode < prev   
AMOS Source Code  |  1997-04-15  |  859b  |  41 lines
  1. Screen Open 0,320,256,32,0
  2. Curs Off : Flash Off : Cls 0 : Hide 
  3. Double Buffer 
  4. Screen Swap 
  5. B=$100
  6. For A=1 To 15
  7.   Colour A,B+(B/$200*$10) : Add B,$100
  8. Next 
  9. B=1
  10. For A=1 To 15
  11.   Colour A+16,B+(B/2*$110) : Inc B
  12. Next 
  13. Dim P(29),P2(29)
  14. For A=0 To 31
  15.   Set Bob A,1,%11111,
  16. Next 
  17. A=0
  18. Bob Update Off 
  19. Autoback 0
  20. Do 
  21.   X=Min(X Mouse-128,270) : Y=Y Mouse-50 : P(A)=X : Add A,1,0 To 29 : P(A)=Y : Add A,1,0 To 29
  22.   Bob Clear 
  23.   B=A : Add B,-2,0 To 28
  24.   For C=15 To 1 Step -1
  25.     Bob C,P(B)+C,P(B+1)+C,C
  26.     Add B,-2,0 To 28
  27.   Next 
  28.   If X<>XX Then SX=(XX-X)/4
  29.   If Y<>YY Then SY=(YY-Y)/4
  30.   XX=Max(10,Min(XX-SX,260)) : YY=Max(10,Min(YY-SY,190))
  31.   P2(AA)=XX
  32.   Add AA,1,0 To 29 : P2(AA)=YY
  33.   Add AA,1,0 To 29 : B=AA
  34.   Add B,-2,0 To 28
  35.   For C=15 To 1 Step -1
  36.     Bob C+15,P2(B)+C,P2(B+1)+C,C+15
  37.     Add B,-2,0 To 28
  38.   Next 
  39.   Bob Draw : Screen Swap : Wait Vbl 
  40. Loop 
  41. End